home *** CD-ROM | disk | FTP | other *** search
/ Sounds Terrific 2 / Sounds Terrific II (1996)(Weird Science)(Disc 2 of 2)[Amiga-PC].iso / midcraft / midutil1 / m2midi / midisupport.def < prev    next >
Text File  |  1991-04-13  |  1KB  |  38 lines
  1. (***************************************************************************
  2.   :Program.       MidiSupport.def
  3.   :Author.        Jⁿrgen Zimmermann
  4.   :Address.       Ringstra▀e 6, W-6719 Altleiningen, Germany
  5.   :Phone.         06356/1456
  6.   :ShortCut.      [JnZ]
  7.   :Support.       -
  8.   :Version.       1.1
  9.   :Date.          8. May 1991
  10.   :Copyright.     PD
  11.   :Language.      MODULA-2
  12.   :Translator.    M2Amiga 4.0d
  13.   :Contents.      Modula-2-implementation of the original "C-Midi-Macros"
  14.   :Contents.      "midi.library" of Fish 227, c-functions in "MidiSupport"!
  15.   :Imports.       "midi.library" V2.0 in the LIBS:-directory
  16.   :Remark.        I want to get into contact with other users of the
  17.   :Remark.        "midi.library" or MIDI-programmers.
  18.   :Remark.        (If you have a new version of the library, please send
  19.   :Remark.        it to me!)
  20.   :Usage.         described in the documents of "midi.library"
  21. ****************************************************************************)
  22.  
  23. DEFINITION MODULE MidiSupport;
  24.  
  25.  
  26. PROCEDURE MidiHiByte(data: CARDINAL): SHORTCARD;
  27.  
  28. PROCEDURE MidiLoByte(data: CARDINAL): SHORTCARD;
  29.  
  30. PROCEDURE MidiWord(hi,lo: SHORTCARD): CARDINAL;
  31.  
  32. PROCEDURE SplitMidiID(    id         : LONGCARD;
  33.                       VAR id0,id1,id2: SHORTCARD);
  34.  
  35. PROCEDURE MakeMidiID(id0,id1,id2: SHORTCARD): LONGCARD;
  36.  
  37. END MidiSupport.
  38.